home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / par-res.bas < prev    next >
BASIC Source File  |  1994-06-23  |  641b  |  26 lines
  1. 10 PRINT
  2. 15 PRINT "WHAT IS THE VALUE OF (C) IN Pf?"
  3. 20 INPUT "ENTER";C
  4. 25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
  5. 30 INPUT "ENTER";L
  6. 40 R=100000!
  7. 45 P=3.141592654#
  8. 50 Y=180/P
  9. 55 FR=10^3/((2*P)*((L*C)^.5))
  10. 56 PRINT FR, "RESONANT FREQUENCY (FR) IN MHZ."
  11. 60 PRINT "WHAT IS THE DESIRED FREQUENCY (F) IN MHz?"
  12. 65 INPUT "ENTER";F
  13. 66 IF F > FR + 1 THEN 200 ELSE 70
  14. 70 FA=F*10^6
  15. 75 LA=L/10^6
  16. 80 CA=C/10^12
  17. 85 Z=(R*LA*2*P*FA)/((R^2*(1-4*P^2*FA^2*LA*CA)^2+4*P^2*FA^2*LA^2)^.5)
  18. 90 A=90-(Y*(ATN((2*P*FA*LA)/(R*(1-4*P^2*FA^2*LA*CA)))))
  19. 95 PRINT
  20. 105 PRINT
  21. 130 PRINT F, "MHZ"
  22. 135 PRINT Z, " Z OHMS"
  23. 140 F=F+.1
  24. 160 GOTO 66
  25. 200 END
  26.